home *** CD-ROM | disk | FTP | other *** search
/ Developer CD Series 2000 April: Mac OS SDK / Dev.CD Apr 00 SDK1.toast / Development Kits / Mac OS / Communications Toolbox / CTB Sample Code 1.0b16 / CTB Sources / Sources 2 / Terminal Tool for CTB / TermGlobalUnit.p < prev    next >
Encoding:
Text File  |  1989-07-21  |  1.8 KB  |  95 lines  |  [TEXT/MPS ]
  1. { *** =================================================== ***
  2.  
  3.     Purpose:        
  4.         Sets up structures and values used by our main 
  5.         code resources. 
  6.  
  7.     Module :        TermGlobalUnit.p
  8.  
  9.     Authors:        Craig Hotchkiss, Alex Kazim, Byron Han, 
  10.                         Carol Lee
  11.                     Apple Computer, Inc.
  12.                     Networks & Communications
  13.                     20525 Mariani Drive
  14.                     Cupertino, CA 95014
  15.  
  16.     Version :        1.0d1
  17.  
  18.     Date :            9.may.89
  19.  
  20.     History :
  21.         9.may.89    Creation date
  22.  
  23.  
  24.     ©1989 Apple Computer, Inc.  All Rights Reserved.
  25.     This software is proprietary to Apple Computer, Inc.
  26.     It may not be copied, in whole or in part,
  27.     without the written consent of Apple Computer, Inc.
  28.  
  29.   *** =================================================== *** }
  30.     
  31.  
  32.  
  33.  
  34. UNIT TermGlobalUnit;
  35.  
  36. INTERFACE
  37.  
  38.  
  39. USES
  40.     MemTypes, 
  41.     QuickDraw, 
  42.     OSIntf, 
  43.     ToolIntf, 
  44.     Lists,
  45.     TerminalTool;
  46.  
  47.  
  48. CONST    
  49.     onlineBooleanItem                    = 1;
  50.     screenWidthItem                        = 2;
  51.     cursorStyleItem                        = 3;
  52.  
  53.     { Resource 'STR#' indices }
  54.     onlineBoolean = 1;
  55.     screen132Boolean = 2;
  56.     cursorStyleBoolean = 3;
  57.     falseID = 4;
  58.     trueID = 5;
  59.  
  60. TYPE
  61.     IntegerPtr = ^Integer;
  62.     EventPtr = ^EventRecord;
  63.     CharPtr = ^Char;
  64.  
  65. { Here is my structure.  Each field is basically a check box for the 
  66. choose dialog box.  These fields are checked by the code modules when
  67. taking actions. }
  68.     TerminalHandle = ^TerminalPtr;
  69.     TerminalPtr = ^TerminalRecord;
  70.     TerminalRecord = record
  71.         onlineBoolean: Boolean;
  72.         screenWidth: Boolean;
  73.         cursorStyle: Boolean;
  74.     END;
  75.     
  76.  
  77. { This 2-field structure is really unnecessary currently.  It's 
  78. where a tool-specific structure could have been based. }
  79.     TERMINALPrivateHandle    = ^TERMINALPrivatePtr;
  80.     TERMINALPrivatePtr        = ^TERMINALPrivateRecord;
  81.     TERMINALPrivateRecord    = record
  82.         currentLanguage: Integer;
  83.         cursorPosition: Integer;            { current cursor location }
  84.     END;
  85.     
  86.     LocalPtr = ^LocalRecord;
  87.     LocalRecord = RECORD
  88.         theList        :    ListHandle;
  89.         oldCell        :    Cell;
  90.     END;
  91.  
  92.  
  93. IMPLEMENTATION
  94.  
  95. END.